Shareware Grab Bag/Shareware Grab Bag.iso/003/dflow.arc/CUSTPRIN.PRG

Text File | 1985-04-03 | 405 b | 22 lines

clear
store t to working
do while working
store 0 to recnum
@ 10,20 say "record number" get recnum
read
if recnum < 1
    return
   else
     goto bottom
     If recnum > recno()
     @ 12,20 say "last record is"
     @ 12,35 say recno()
     @ 14,20 say "Press return if you don't want to print"
   else
    goto recnum
    do printer
    store f to working
  endif
endif
enddo
P